home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HyperLib 1997 Winter - Disc 1
/
HYPERLIB-1997-Winter-CD1.ISO.7z
/
HYPERLIB-1997-Winter-CD1.ISO
/
オンラインウェア
/
PRG
/
MacPerl 506 appl folder.sit
/
MacPerl 506 appl folder
/
Mac_Perl_506r1m_appl
/
eg
/
down
< prev
next >
Wrap
Text File
|
1994-12-26
|
472b
|
31 lines
#!/usr/bin/perl
$| = 1;
if ($#ARGV >= 0) {
$cmd = join(' ',@ARGV);
}
else {
print "Command: ";
$cmd = <stdin>;
chop($cmd);
while ($cmd =~ s/¥¥$//) {
print "+ ";
$cmd .= <stdin>;
chop($cmd);
}
}
$cwd = `pwd`; chop($cwd);
open(FIND,'find . -type d -print|') || die "Can't run find";
while (<FIND>) {
chop;
unless (chdir $_) {
print stderr "Can't cd to $_¥n";
next;
}
print "¥t--> ",$_,"¥n";
system $cmd;
chdir $cwd;
}